home *** CD-ROM | disk | FTP | other *** search
/ Invisible Universe / Invisible Universe (1995)(Voyager)[Mac-PC].iso / mac / MOVIES / TOUR.DIR / 00047_Script_47 < prev    next >
Text File  |  1995-11-15  |  703b  |  28 lines

  1. on mouseDown
  2.   set mr = the movieRate of sprite 12
  3.   
  4.   set the movieRate of sprite 12 = 0
  5.   set len = the duration of cast (the castNum of sprite 12)
  6.   set w = the width of sprite 12
  7.   
  8.   set l = the left of sprite 12
  9.   set r = the right of sprite 12
  10.   
  11.   set h = the mouseH
  12.   if h > r then set h = r
  13.   else if h < l then set h = l
  14.   
  15.   set the locH of sprite 15 = h
  16.   set the movieTime of sprite 12 = ((h-l)*len)/w
  17.   updateStage
  18.   
  19.   
  20.   if mr = 0 then
  21.     global gTourLabel, gTourTimeSS, gTourTimeMW, gTourTimeCL
  22.     do "set gTourTime"&char 1 to 2 of gTourLabel & " = the movieTime of sprite 12"
  23.     playTour  
  24.   else  
  25.     set the movieRate of sprite 12 = 1
  26.   end if
  27.   
  28. end